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FACILITY: F11ACP Structure Level 1 
i {| ABSTRACT: 


This module is the main routine of FCP. It dequeves a request, 
executes it, and signals completion to the user. 


{ ENVIRONMENT : 


003 


STARLET operating system, including privileged system services 
and internal exec routines. 
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GLOBAL ROUTINE STARTUP : NOVALUE = 
'e4 


FUNCTIONAL DESCRIPTION: 
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CALLING SEQUENCE: 
UNDEF INED 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
FCP Locked into memory, dispatcher started. 


EXEC_CALL (DISPATCHER); 


PEI IINIIDIND a i i a a dd ed 


FRLLF 
BREESE 
UPW—O0Oe 


- TITLE 
- IDENT 


0000 000 -ENTRY 
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18 bytes, Routine Base: S$CODE$ + 0000 


000000006 9F 
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This routine is the startup point for FCP. It locks all of FCP 
into memory and then calls the dispatcher loop in exec mode. 


END; ! end of routine STARTUP 
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GLOBAL ROUTINE DISPATCHER : NOVALUE = 
1+¢ 


FUNCTIONAL DESCRIPTION: 


This routine is the main routine of FCP. It dequeues a request, 
executes it, and signals completion to the user. 


CALLING SEQUENCE: 
DISPATCHER () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 


IMPLICIT QUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
FCP functions executed 


‘ 

' 

‘ 

' 

! 

1 

i OUTPUT PARAMETERS: 
; NONE 
i 

' 

' 

& 


BEGIN 

LOCAL 
FUNCTION; ! function being executed 

EXTERNAL 
10_PACKET : REF BBLOCK; ! current I/0 packet 

EXTERNAL ROUTINE 
INIT_FCP, ! one time initialization 
INIT_COMMON, ! per call initialization 
PMS_START, ' start performance metering 
PMS_END, ! end performance metering 
GET_REQUEST !' get next 1/0 request 
READ_WRITEVB, ' process read/write virtual 
ACCESS, ' ACCESS function routine 
CREATE ! CREATE function routine 
DEACCESS, i DEACCESS function routine 
DELETE, ! DELETE function routine 
MODIFY ! MODIFY function routine 
ACPCONFROL, i ACPCONTROL function routine 

T, ' MOUNT function routine 

ERR_CLEANUP, ! error cleanup rout ng 
CLEANUP } ne 


ponerse Foegnup rout 


10_DONE: /0 completion processing 
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! Do the one time initialization. Then for each request, do the per 
! request initialization get the next request, and process it. If 

i the request fails, call 
j 


he error cleanup before returning 
! completion. 


: ENABLE MAIN_HANDLER; 


N FP; 
fp = MAIN_HANDLER; 
KERNEL_CALL (INIT_FCP); 
WHILE 1 po 
PMS START (); 
COMMON (); 
RACKET = KERNEL CALE (GET_REQUEST); 
TION = .10_PACRETCIRPSV_FCODEJ; 
FUNCTION EQL 10$_READPBLK 
FUNCTION EQL I0$"WRITEPBLK 
I 
NOT READ_WRITEVB () 


BEGIN 
IF ERR CLEANUP () THEN CLEANUP () ELSE (ERR_CLEANUP (); CLEANUP ()); 


ND Q; 
KERREL_CALL (10_DONE, .10_PACKET); 
ae 
ELSE 
BEGIN 
IF 


( 
CASE .FUNCTION FROM LOW FUNCTION TO HIGH_FUNCTION OF 


ET 
10$_Access): ACCESS (); 
IOS-CREATEJ: CREATE (); 
IOS“DEACCESS]: DEACCESS (); 
IOS"DELETE): DELETE (); 
IOS"MODIFY): _MODIFY (): 
IO$“ACPCONTROL): ACPCONTROL (); 
10$"MOUNT]: | MOUNT (); 
INRANGE): (ERR_STATUS (SS$_ILLIOFUNC); 0): 
COUTRANGE): (ERRTSTATUS (SSS"ILLIOFUNC); 0); 
) 
ag ! successful completion 
IF NOT CLEANUP () THEN (ERR_CLEANUP (); CLEANUP ()); 


ELSE ! error completion 
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GET_REQUEST 
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* #6, 3 (RO), FUNCTION 
FUNCTION, #1 
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#0, READ_WRITEVE 
RO, 1 
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DISPAT 16-Sep-1984 00:45:27 VAX-11 Bliss-32 V4.0-742 Page 7 
v04-000 12-08-1384 99:33:85 DISKSVMSMASTER:CFIIA.SRCIDISPAT.B32:1.° (3) 
11 ¢f BRB 12$ : 
00006 CF fe i 6$: CALLS ' , CREATE + 0545 
00006 CF 0 FB 78 7%: CALLS #0, DEACCESS + 0546 
1A 1 7D BRB 12$ ; 
00006 CF 09 FB 7F 8$ CALLS H , DELETE + 0547 
00006 CF 0 FB 9$ CALLS H , MODIFY + 0548 
00006 CF 6 FB 0 10$ CALLS H ‘ ACPCONTROL + 0549 
00006 CF 00 Fg 94 118: CALLS #0, MOUNT + 0550 
15 F 99 12$:  BLBC RO. 1 : 
09 71 o9¢ BRB 14$ ; 
10 64 £9 9E 13$ BLBC  —-USER_STATUS, 15$ + 0551 
64 F4 BF 9B OOOAT MOVZBW #244, USER_ STATUS : 
OA 11 OOOAS BRB 15$ : 
00006 CF 90 EB 0047 14$ CALLS #0, CLEANUP + 0557 
14 0 €8 OOOAC BLBS RO. 18$ : 
08 11 OOOAF BRB les : 
00006 CF 00 Fg 00B1 15$ CALLS #0, ERR_CLEANUP + 0561 
05 0 E8 00086 BLBS RO. 17$ : 
00006 CF 00 FB 000B9 1 CALLS #0, ERR_CLEANUP : 
00006 CF 00 FB O0BE 17$ CALLS #0. CLEANUP F 
0000G CF 0 FB 000C3 18$ CALLS #0. PMS END > 0564 
00006 CF Dp 00c8 PUSHiL 10_PACKET > 0565 
9? pp O0ce PUSHL SP : 
00006 CF 9F 000D PUSHAB 10_DONE : 
63 04 FB 000D4 CALLS #47 SYSSCMKRNL : 
FF46 31 00007 BRW 1$ : 0525 


; Routine Size: 218 bytes, Routine Base: SCODE$S + 0012 
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GLOBAL ROUTINE MAIN_HANDLER (SIGNAL, MECHANISM) : NOVALUE = 
io 

FUNCTIONAL DESCRIPTION: 
This routine is the main level condition handler. It stores the 
condition value (FCP error code) in the user status block, unwinds 
and returns from the function that was executing. 


CALLING SEQUENCE: 
MAIN_HANDLER (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of signal array 
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oe ARG2: address of mechanism array 
75 IMPLICIT INPUTS: 

6 NONE 

78 OUTPUT PARAMETERS: 

79 NONE 
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USER_ STATUS: receives signal code 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
stack unwound to main level to return to dispatcher 


BEGIN 
P 
SIGNAL : REF BBLOCK, ! signal array arg 
MECHANISM : REF BBLOCK; i mechanism array arg 
EXTERNAL 
USER_STATUS : WORD; ! 1/0 status to user 
EXTERNAL ROUTINE 
SYSSUNWIND : SODRESSING_MODE (ABSOLUTE); 


' Check the signal cote. The gate permissible ones a SSS_UNWIND, which 
! is ignored, and SS$_CMODUSER. The error status is the 16 bit CHMU code. 
! If the error value is non-zero, store it in the user status (zero 

! means just exit). Set up a return value of 0, unwind to the current 

! depth, and return, causing the invoked function to return with failure 
to vine dispatcher. 


F .SIGNAL LECHESL_$1G_ NAME] EQL SS$ -YNWIND THEN RETURN; 

F .SIGNAL $L~SIG-NAME] NEQ SS$7C USER 

HEN BUG_CHECK (ONXSIGNAL, FATAL, Fenton signal name in ACP"); 
F_ .SIGNALCCHFS$L_SIG_ARG1) NE 


THEN” USER_STATUS = SS CNALCCHE SL. S1G_ARG1]; 

MECHANISMCCHFSL_MCH_SAVRO] = 0; 

SYSSUNWIND (MECHANISMCCHFSL_MCH_DEPTH], 0); 

RETURN; 

END; ! end of routine MAIN_HANDLER 


-EXTRN SYSSUNWIND, BUGS_UNXSIGNAL 


000 ENTRY MAIN_HANDLER, Save nothing 
3 8% AC D MOVL tt LR 
00000920 F 4 A 9 CMPL (RO), "#2336 
3 ‘ BEQL i? 
00000424 + 8F 04 Ad D 1 CMPL (RO), #1060 
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COMMAND QUALIFIERS 


38 
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p-19be 13:25:80 DISKSUMSMASTERS CF 1iA-sRe 


04 13 18 BEQL 1$ 
FEFF 1A BUGW 
0000* 1C eWORD <BUGS$_UNXSIGNAL!4> 
50 4 AC OD 1$: MOVL I 2 R 
8 «OA 9 TSTL (RO) 
0 BEQL $ 
00006 gf § AO 8B MOVW (RO), USER —— 
0 AC D D 2$: MOVL MECHANISM, R 
C AO 04 000351 CLRAL 12(R0) 
7 4 5 CLRAL -(SP) 
08 A F PUSHAB 8(RO) 
00000000G 9F 02 FB "4 CALLS #2, @ASYSSUNWIND 
04 00040 3$: RET 
; Routine Size: 65 bytes, Routine Base: S$CODES + OOEC 
7 0638 
8 640 1 END 
9 0641 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 301 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
coocccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBILIB.L32;1 18619 18 0 1000 00:01.9 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:DISPAT/OBJ=OBJ$:DISPAT MSRC$:DISPAT/UPDATE=(ENHS$:DISPAT) 


Size: 301 + 0 data bytes 
Run Time a) 
Fi epeed Time: 


Lines/CPU Min: 
Lexemes/CPU-Min: 1393 
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; Memory Used: 117 pages 
; Compilation Complete 
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